#!/usr/bin/perl -w

use strict;
#use SOAP::Lite +trace=>'debug';
use SOAP::Lite;

my $objeto =  SOAP::Lite -> uri('http://localhost/srv') -> proxy('http://localhost/cgi-bin/3_7_serv.pl');

my @urls = $objeto-> buscar_noticia($ARGV[0])->paramsout;
foreach (@urls){
  print;
  print "\n";
}